library(car)
library(Rmisc)
library(effects)
library(ggplot2)
library(scales)
library(xtable)
library(lubridate)
library(prediction)
library(cowplot)
library(stargazer)

theme_pew <- function(base_size = 12, base_family = "") {
	theme_grey(base_size = base_size, base_family = base_family) %+replace%
		theme(
			axis.line = element_line(colour = "black"),
			axis.text         = element_text(size = rel(0.8)),
			axis.ticks        = element_line(colour = "black"),
			legend.key        = element_rect(colour = "grey80"),
			panel.background = element_blank(),
			panel.border      = element_rect(fill = NA, colour = "grey50"),
			panel.grid.major = element_blank(),
			panel.grid.minor = element_blank(),
			axis.line.x = element_line(color="black", size = .3),
			axis.line.y = element_line(color="black", size = .3),
			strip.background  = element_rect(fill = "grey80", colour = "grey50", size = 0.2)
		)
}

source("figure1_2.r")
source("figure3.r")
source("figure4.r")
source("figure5_6.r")
source("figure7.r")
source("figure8.r")
source("figure9.r")
source("figure10-13.r")